home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / pictile.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  1KB  |  31 lines
  1. /* PicTile.rexx -- Tile Pic all over swap screen  */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. arg tiles
  5.  
  6. if tiles="" then TileVal="$0050"
  7. else  TileVal="$"||right(d2x(tiles),3,'0')||"0"
  8.  
  9. if pos('DigiPaint',show(ports))=0 then do
  10.   say "Can't find ToasterPaint!"
  11.   exit
  12. end
  13.  
  14. Address "DigiPaint"     /* Tell ARexx where commands go  */
  15.   'Swap'        /* Jump to (blank) swap screen! */
  16.   'Flon'        /* Fill On */
  17.     'Bdel'                /* Delete swap brush */
  18.     'Dotb'                /* Delete any current cut-out brush */
  19.   'Drre'        /* Draw Rectangles */
  20.   'Whsc'
  21.     'Undo'                /* Un-draw solid rectangle */
  22.     'Rubi'                /* Internal Rub-Thru on... use picture in swap screen as source */
  23.   'Txma'        /* Texture mapping on, since there is no brush, it will use whole screen */
  24.   'Txva' TileVal
  25.   'Tyva' TileVal
  26.     'Redo'                /* Re-draw rectangle, this time with texture map of swap screen */
  27.   'Flof'        /* Fill off  */
  28.   'Pmcl'        /* Normal draw Mode */
  29.   'Shco'          /* Render to composite out */
  30. exit
  31.